--[[
    编码: WMS-07-02
    名称: 常量-删除前
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： BeforeDataObjDelete

    功能:
        不允许删除系统固有的常量
    更改记录:
        V6.0 HAN 2023/9/6  -- lua.Error/lua.Debug 函数变化           
--]]

json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require("oi_base_mobox")

function BeforeDataObjDelete ( strLuaDEID ) 
    local   nRet, strRetInfo
    nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "C_SYS" ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "[1] 获取当前编辑属性失败! "..strRetInfo ) end 
    local obj_attrs = json.decode( strRetInfo ) 
    local cIsSys = obj_attrs[1].value           -- 是否是系统固有常量

    if ( cIsSys == 'Y' or cIsSys == 'y') then lua.Warning( strLuaDEID, debug.getinfo(1), "抱歉，不能删除系统固有的常量!" ) end   
end